(defun c:xjoin()


(setq myosmode (getvar "osmode"))  

(setvar "osmode" 512)


	(command "explode" (getpoint "Select Entitiy to Explode and Join: "))
	(command "pedit" "m" "P" "" "y" "j" "" "")


(setvar "osmode" myosmode)  

  


  
	
)